home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Tutorial Material / Pitch and Rhythm Tutorial / Pitch Template < prev    next >
Lisp/Scheme  |  1998-10-26  |  970b  |  37 lines
  1. (setq chords '(ab = cd = fe gh e (-12 e)))
  2. (setq melody '(a b = c d = f e g h e e))
  3.  
  4. (setq melinv (symbol-inversion 'a  melody))
  5. (setq melody1 (filter-delete '(e) melody))
  6. (setq melody2 (filter-delete '(f g) melody))
  7. (setq melody3 (filter-delete '(b h) melody1))
  8. (setq melvar (append melody melody1 melody2 melody3))
  9.  
  10. (setq melrev (symbol-retrograde melody))
  11. (setq melrpt (symbol-repeat 2 melody))
  12. (setq meltr1 (symbol-transpose 1 melody))
  13. (setq melshft (symbol-shift 2 melody))
  14. (setq melrot (symbol-scroll -2 melody))
  15. (setq melext (symbol-trim 16 melody))
  16. (setq melloop (gen-loop '(1 5 2) melody))
  17.  
  18. (setq melcom (find-common melody chords))
  19. (setq meltrans 
  20.    (symbol-transform
  21.       from chords
  22.       to melody
  23.       order '(7 6 5 4 3 2 1 0)
  24.       changes'(1)
  25.       repeats '(1)
  26.    )
  27. )
  28.  
  29. (setq rhythm '(1/8))
  30. (setq rhythm1 '((1/8 1/4)))
  31. (setq rhythm2 '(1/8 1/4))
  32. (setq rhythm3 '(1/16))
  33. (setq rhythm4 '(1/8 1/4 1/8 1/16 1/16))
  34.  
  35. ; ......def definitions and timesheet...
  36.  
  37.